home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / D-H / Effects Specialist.sea / EffectsSpecialistDemo™.rsrc / FYps_1000_Encoding < prev    next >
Text File  |  1991-06-19  |  2KB  |  41 lines
  1.  /PSEncod 256 array def
  2. PSEncod 0
  3. /Times-Roman findfont /Encoding get
  4. 0 128 getinterval
  5. putinterval
  6. PSEncod 16#27 /quotesingle put
  7. PSEncod 16#60 /grave put
  8. /Adieresis /Aring /Ccedilla /Eacute /Ntilde /Odieresis /Udieresis /aacute
  9. /agrave /acircumflex /adieresis /atilde /aring /ccedilla /eacute /egrave
  10. /ecircumflex /edieresis /iacute /igrave /icircumflex /idieresis /ntilde /oacute
  11. /ograve /ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex /udieresis
  12. /dagger /degree /cent /sterling /section /bullet /paragraph /germandbls
  13. /registersans /copyrightsans /trademarksans /acute /dieresis /notequal /AE /Oslash
  14. /infinity /plusminus /lessequal /greaterequal /yen /mu /partialdiff /summation
  15. /product /pi /integral /ordfeminine /ordmasculine /Omega /ae /oslash
  16. /questiondown /exclamdown /logicalnot /radical /florin /approxequal /Delta /guillemotleft
  17. /guillemotright /ellipsis /space /Aacute /Atilde /Otilde /OE /oe
  18. /endash /emdash /quotedblleft /quotedblright /quoteleft /quoteright /divide /lozenge
  19. /ydieresis /Ydieresis /fraction /currency /guilsinglleft /guilsinglright /fi /fl
  20. /daggerdbl /periodcentered /quotesinglbase /quotedblbase /perthousand
  21. /Acircumflex /Ecircumflex /Agrave /Edieresis /Egrave /Iacute /Icircumflex
  22. /Idieresis /Igrave /Oacute /Ocircumflex /apple /Ograve /Uacute /Ucircumflex
  23. /Ugrave /dotlessi /circumflex /tilde /macron /breve /dotaccent /ring /cedilla
  24. /hungarumlaut /ogonek /caron
  25. PSEncod 128 128 getinterval astore pop
  26. /local  [/exch load  /def load] cvx  def
  27.  
  28. /copydict
  29. {/newfontdict exch def {exch dup /FID ne
  30. {exch newfontdict 3 1 roll put} {pop pop} ifelse} forall newfontdict }bind def
  31.  
  32. /makename
  33. {1 index length /prefixlength exch def dup length prefixlength add string
  34. dup prefixlength 4 -1 roll putinterval dup 0 4 -1 roll putinterval }bind def
  35.  
  36. /MyFix {dup (My) exch makename cvn /newname exch def FontDirectory newname known
  37. {pop} {cvn findfont dup maxlength dict copydict dup /fontname known
  38. {dup /fontname newname put} if dup /Encoding PSEncod put
  39. newname exch definefont pop } ifelse } bind def
  40.  
  41.